package User;

use Moose;

my $meta = __PACKAGE__->meta;

print "__ATTRIBUTES__\n";
for my $attr ( $meta->get_all_attributes ) {
    print $attr->name, "\n";
}

print "__METHODS__\n";
for my $method ( $meta->get_all_methods ) {
    print $method->fully_qualified_name, "\n";
}

print "__CLASS__\n";
for my $class ( $meta->linearized_isa ) {
    print "$class\n";
}

print "__SUBCLASS_\n";
for my $subclass ( $meta->subclasses ) {
    print "$subclass\n";
}

print "__END__\n";